home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / _CATCLOS.PRG < prev    next >
Text File  |  1993-05-04  |  757b  |  31 lines
  1. PROCEDURE _CatClose
  2. *---------------------------------------------------------------------
  3. * NAME
  4. *   _CatClose - close the current catalog file
  5. *
  6. * DESCRIPTION
  7. *   _CatClose will close the catalog that is opened in the FXCatalog
  8. *   alias.  _CatClose will keep the users current workarea in use.
  9. *   If the catalog was not opened, _CatClose will do nothing.
  10. *
  11. * SYNOPSIS
  12. *   DO _CatClose
  13. *
  14. * PARAMETERS
  15. *   None
  16. *
  17. * DEPENDENCIES
  18. *   The catalog must be opened in ALIAS FXCatalog.
  19. *
  20. *---------------------------------------------------------------------
  21.  
  22.   IF SELECT( "FXCatalog" ) > 0          && Make sure the catalog is open
  23.  
  24.     USE IN FXCatalog                    && Close the catalog
  25.  
  26.   ENDIF
  27.  
  28. RETURN
  29. *-- EOP: _CatClose
  30.  
  31.